﻿Imports DAO
Imports DTO
Imports System.Data.OleDb
Public Class KhamBenhBUS
    'Them
    Public Sub Them(ByVal hsDto As KhamBenhDTO)
        'Kiem tra Business Rule
        If (hsDto.NamSinh > "1/1/1950") Then
            Throw New Exception("Diem Hoa khong lon hon 10")
        End If

        Dim kbDao As New KhamBenhDAO()
        ' KhamBenhDAO.Them(hsDto)
    End Sub
    Public Function Themphieudangkykhambenh(ByVal kbDTO As KhamBenhDTO) As Integer
        Dim dao As New KhamBenhDAO()
        Return dao.Themphieukhambenh(kbDTO)
    End Function
End Class
